home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Documentation / WW3DKit / A_IntroWW3DKitExampleFiles / rotatingCylinder.wwModel / text.eve < prev   
Encoding:
Text File  |  1995-03-22  |  1.7 KB  |  38 lines
  1. set roll 45
  2. set thetaMax 360
  3. set radius 1
  4. set zMin -1
  5. set zMax 2
  6.  
  7. set text(fontName) Helvetica
  8. set text(spacingFactor) [expr {-1./72.}]
  9. set text(spacing) 2
  10. set text(fontSize) 10
  11. set text(tabLength) [expr {-20 * $text(spacingFactor)}]
  12.  
  13. startShape World
  14.     startShape startShape; EveCmd {Translate [expr { 0 * $text(tabLength)}] [expr {$text(spacingFactor) * 0 * $text(spacing) * $text(fontSize)}] 0 }; 
  15.       EveCmd {WW3DText $text(fontName) $text(fontSize) {startShape dynamicExample} left}
  16.     
  17.         startShape (Rotate); EveCmd {Translate [expr { 1 * $text(tabLength)}] [expr {$text(spacingFactor) * 1 * $text(spacing) * $text(fontSize)}] 0 }; 
  18.           EveCmd {WW3DText $text(fontName) $text(fontSize) {EveCmd {Rotate $roll 1 0 0}} left}
  19.         endShape;
  20.  
  21.         startShape (Disk);  EveCmd {Translate [expr { 1 * $text(tabLength)}] [expr {$text(spacingFactor) * 2 * $text(spacing) * $text(fontSize)}] 0 }; 
  22.           EveCmd {WW3DText $text(fontName) $text(fontSize) {Disk $zMin $radius $thetaMax} left}
  23.         endShape;
  24.     
  25.         startShape (Cylinder); EveCmd {Translate [expr { 1 * $text(tabLength)}] [expr {$text(spacingFactor) * 3 * $text(spacing) * $text(fontSize)}] 0 }; 
  26.           EveCmd {WW3DText $text(fontName) $text(fontSize) {Cylinder $radius $zMin $zMax $thetaMax} left}
  27.         endShape;
  28.     
  29.         startShape (Disk); EveCmd {Translate [expr { 1 * $text(tabLength)}] [expr {$text(spacingFactor) * 4 * $text(spacing) * $text(fontSize)}] 0 }; 
  30.           EveCmd {WW3DText $text(fontName) $text(fontSize) {Disk $zMax $radius $thetaMax} left}
  31.         endShape;
  32.     
  33.     startShape endShape; EveCmd {Translate [expr { 0 * $text(tabLength)}] [expr {$text(spacingFactor) * 5 * $text(spacing) * $text(fontSize)}] 0 }; 
  34.       EveCmd {WW3DText $text(fontName) $text(fontSize) {endShape} left}
  35.     endShape;
  36. endShape 
  37. endShape 
  38.